home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE CleanUP Codepages.xpl < prev    next >
Text File  |  2003-11-19  |  3KB  |  73 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Troubleshooting"
  5. "NAME"="Clean Up Code Page References"
  6. "VERSION"="1.08"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Attempt to improve IE performance by cleaning up codepages"
  9. "DESCRIPTION 1"="When you right-click the mouse in Internet Explorer, the program checks its codepage settings in the Registry. If it finds a blank codepage, then it will try to locate a replacement. Doing this wastes a lot of time and processor cycles, so by removing the empty entries, the process can be speeded up."
  10. "DESCRIPTION 2"="This option lets you hide the blank settings, so IE won't try to find replacement codepages. This may greatly improve IE's performance."
  11. "DESCRIPTION 3"="On some machines your codepages may be correctly configured, in which case, using this option won't offer any improvements in performance. The plug-in will report back how many codepages were removed when the options is activated."
  12. "DESCRIPTION 4"="If using this plug-in actually decreases IE's performance, deactivating the option will restore all entries."
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to CptSiskoX [CptSiskoX@hotmail.com] and Axcel216 [AXCEL216@aol.com] for the idea!"
  17.  
  18. sP="HKLM\System\CurrentControlSet\Control\Nls\Codepage"
  19. sQ="\MIE55SpeedUp"
  20.  
  21. Sub Plugin_Initialize 
  22.  If RegPathExists(sP) then
  23.   If RegPathExists(sP&sQ)=true then
  24.    Call SetUIElement(1,true)
  25.   End if
  26.  else
  27.   Disable
  28.  end if
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  f=0
  33.  s=GetUIElement(1)
  34.  if s=true then
  35.   ' We need to enumerate all values, and
  36.   ' if they are blank, get all of their information,
  37.   ' and then create a copy in [sQ]. We then remove
  38.   ' the old values.
  39.   
  40.   ' the following code was taken from XQ IE Outlook Express 7.xpl
  41.   iCount=RegEnumValues(sP)
  42.   For x=1 to iCount
  43.    t=RegEnumElement(x)
  44.    z=RegReadValue(sP & "\" & t)
  45.    if z="" then
  46.     f=f+1
  47.     u=RegValueType(sP & "\" & t)
  48.     v=RegReadValue(sP & "\" & t)
  49.     Call RegWriteValue(sP & sQ & "\" & t,v,u)
  50.     Call RegDeleteValue(sP & "\" & t)
  51.    end if
  52.   Next
  53.   Call MsgInformation("X-Setup found and removed " & f & " invalid codepages.")
  54.  else
  55.   ' we take all values in [sQ] and move them back.
  56.   iCount=RegEnumValues(sP&sQ)
  57.   For x=1 to iCount
  58.    t=RegEnumElement(x)
  59.    z=RegReadValue(sP&sQ & "\" & t)
  60.    u=RegValueType(sP&sQ & "\" & t)
  61.    v=RegReadValue(sP&sQ & "\" & t)
  62.    Call RegWriteValue(sP & "\" & t,v,u)
  63.    Call RegDeleteValue(sP&sQ & "\" & t)
  64.   Next
  65.   if RegPathExists(sP&sQ)=true then
  66.    Call RegDeletePath(sP&sQ)
  67.   end if
  68.  end if
  69. End Sub
  70.  
  71. Sub Plugin_Terminate 
  72. End Sub
  73.